﻿Imports System.Drawing
Imports System.Collections
Imports System.ComponentModel
Imports System.Windows.Forms

Namespace Othello
    ''' <summary>
    ''' Summary description for AboutDialog.
    ''' </summary>
    Public Class AboutDialog
        Inherits System.Windows.Forms.Form
        Private iconPictureBox As System.Windows.Forms.PictureBox
        Private okButton As System.Windows.Forms.Button
        Private titleLabel As System.Windows.Forms.Label
        Private versionLabel As System.Windows.Forms.Label
        Private copyrightLabel As System.Windows.Forms.Label

        ''' <summary>
        ''' Required designer variable.
        ''' </summary>
        Private components As System.ComponentModel.Container = Nothing

        Public Sub New()
            '
            ' Required for Windows Form Designer support
            '
            InitializeComponent()

            '
            ' TODO: Add any constructor code after InitializeComponent call
            '

            Dim icon As New Icon(Me.Icon, 96, 96)
            Me.iconPictureBox.Image = icon.ToBitmap()
        End Sub

        ''' <summary>
        ''' Clean up any resources being used.
        ''' </summary>
        Protected Overrides Sub Dispose(ByVal disposing As Boolean)
            If disposing Then
                If components IsNot Nothing Then
                    components.Dispose()
                End If
            End If
            MyBase.Dispose(disposing)
        End Sub

#Region "Windows Form Designer generated code"
        ''' <summary>
        ''' Required method for Designer support - do not modify
        ''' the contents of this method with the code editor.
        ''' </summary>
        Private Sub InitializeComponent()
            Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(AboutDialog))
            Me.titleLabel = New System.Windows.Forms.Label
            Me.versionLabel = New System.Windows.Forms.Label
            Me.okButton = New System.Windows.Forms.Button
            Me.copyrightLabel = New System.Windows.Forms.Label
            Me.iconPictureBox = New System.Windows.Forms.PictureBox
            Me.linkLabel = New System.Windows.Forms.LinkLabel
            Me.Label1 = New System.Windows.Forms.Label
            CType(Me.iconPictureBox, System.ComponentModel.ISupportInitialize).BeginInit()
            Me.SuspendLayout()
            '
            'titleLabel
            '
            Me.titleLabel.AutoSize = True
            Me.titleLabel.Font = New System.Drawing.Font("Calibri", 22.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(161, Byte))
            Me.titleLabel.Location = New System.Drawing.Point(69, 9)
            Me.titleLabel.Name = "titleLabel"
            Me.titleLabel.Size = New System.Drawing.Size(280, 37)
            Me.titleLabel.TabIndex = 0
            Me.titleLabel.Text = "Othello LAN/Internet"
            Me.titleLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
            '
            'versionLabel
            '
            Me.versionLabel.AutoSize = True
            Me.versionLabel.Font = New System.Drawing.Font("Calibri", 14.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(161, Byte))
            Me.versionLabel.Location = New System.Drawing.Point(154, 46)
            Me.versionLabel.Name = "versionLabel"
            Me.versionLabel.Size = New System.Drawing.Size(97, 23)
            Me.versionLabel.TabIndex = 1
            Me.versionLabel.Text = "Version 1.4"
            Me.versionLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
            '
            'okButton
            '
            Me.okButton.DialogResult = System.Windows.Forms.DialogResult.OK
            Me.okButton.Location = New System.Drawing.Point(167, 369)
            Me.okButton.Name = "okButton"
            Me.okButton.Size = New System.Drawing.Size(75, 23)
            Me.okButton.TabIndex = 3
            Me.okButton.Text = "OK"
            '
            'copyrightLabel
            '
            Me.copyrightLabel.AutoSize = True
            Me.copyrightLabel.Font = New System.Drawing.Font("Calibri", 15.0!)
            Me.copyrightLabel.Location = New System.Drawing.Point(121, 270)
            Me.copyrightLabel.Name = "copyrightLabel"
            Me.copyrightLabel.Size = New System.Drawing.Size(181, 96)
            Me.copyrightLabel.TabIndex = 2
            Me.copyrightLabel.Text = "Gavriilidis Achilleas" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Garavelis Dimitrios" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Mentis Konstantinos" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Nerantzis Vageli" & _
                "s" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
            Me.copyrightLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
            '
            'iconPictureBox
            '
            Me.iconPictureBox.ErrorImage = CType(resources.GetObject("iconPictureBox.ErrorImage"), System.Drawing.Image)
            Me.iconPictureBox.ImageLocation = "./Resources/aboutPic.png"
            Me.iconPictureBox.InitialImage = CType(resources.GetObject("iconPictureBox.InitialImage"), System.Drawing.Image)
            Me.iconPictureBox.Location = New System.Drawing.Point(125, 72)
            Me.iconPictureBox.Name = "iconPictureBox"
            Me.iconPictureBox.Size = New System.Drawing.Size(162, 117)
            Me.iconPictureBox.TabIndex = 0
            Me.iconPictureBox.TabStop = False
            '
            'linkLabel
            '
            Me.linkLabel.AutoSize = True
            Me.linkLabel.Font = New System.Drawing.Font("Calibri", 14.0!)
            Me.linkLabel.LinkArea = New System.Windows.Forms.LinkArea(22, 23)
            Me.linkLabel.LinkColor = System.Drawing.Color.Green
            Me.linkLabel.Location = New System.Drawing.Point(76, 202)
            Me.linkLabel.Name = "linkLabel"
            Me.linkLabel.Size = New System.Drawing.Size(262, 29)
            Me.linkLabel.TabIndex = 4
            Me.linkLabel.TabStop = True
            Me.linkLabel.Text = "For Game Instructions Click Here"
            Me.linkLabel.UseCompatibleTextRendering = True
            '
            'Label1
            '
            Me.Label1.AutoSize = True
            Me.Label1.Font = New System.Drawing.Font("Calibri", 12.0!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(161, Byte))
            Me.Label1.Location = New System.Drawing.Point(140, 241)
            Me.Label1.Name = "Label1"
            Me.Label1.Size = New System.Drawing.Size(134, 19)
            Me.Label1.TabIndex = 6
            Me.Label1.Text = "Development Team"
            Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
            '
            'AboutDialog
            '
            Me.AcceptButton = Me.okButton
            Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
            Me.BackColor = System.Drawing.SystemColors.ActiveCaption
            Me.CancelButton = Me.okButton
            Me.ClientSize = New System.Drawing.Size(426, 394)
            Me.ControlBox = False
            Me.Controls.Add(Me.Label1)
            Me.Controls.Add(Me.linkLabel)
            Me.Controls.Add(Me.copyrightLabel)
            Me.Controls.Add(Me.versionLabel)
            Me.Controls.Add(Me.titleLabel)
            Me.Controls.Add(Me.okButton)
            Me.Controls.Add(Me.iconPictureBox)
            Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
            Me.HelpButton = True
            Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
            Me.MaximizeBox = False
            Me.MinimizeBox = False
            Me.Name = "AboutDialog"
            Me.ShowInTaskbar = False
            Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
            Me.Text = "About Othello"
            CType(Me.iconPictureBox, System.ComponentModel.ISupportInitialize).EndInit()
            Me.ResumeLayout(False)
            Me.PerformLayout()

        End Sub
        Friend WithEvents linkLabel As System.Windows.Forms.LinkLabel
#End Region

        Private Sub linkLabel_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles linkLabel.LinkClicked
            System.Diagnostics.Process.Start("http://en.wikipedia.org/wiki/Reversi")

        End Sub
        Friend WithEvents Label1 As System.Windows.Forms.Label
    End Class
End Namespace
